Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-02/tegl6b.zip/INTROPAK.EXE/lha/BUTTON2.PAS

Pascal/Delphi Source File | 1991-07-16 | 679b | 31 lines

{-- button2.pas}
{$F+}

USES moreicon,teglunit,teglmain;

VAR ifs : ImageStkPtr;

function cancelevent(frame: ImageStkPtr; mouse: MsClickPtr): Word;
  BEGIN
    {-- if true then the button has been released }
    if VisualSquareButtonPress(frame,mouse) then
      begin
        {-- this will pop the button back up }
        ReleaseSquareButton(frame,mouse);
        {-- and dispose of the frame. }
        dropstackimage(ifs);
      end;
  END;

BEGIN
  easytegl;
  easyout;
  PushImage(50,50,200,150);
  ShadowBox(50,50,200,150);
  ifs := StackPtr;
  DefineSquareButtonClick(ifs,30,35,120,65,35,5,@ImageBulb,cancelevent);
  TeglSupervisor;
END.